﻿Public Class ParentForm

    Private Sub CategoriesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CategoriesToolStripMenuItem.Click
        CategoriesForm.Show()
        CategoriesForm.MdiParent = Me

    End Sub

    Private Sub OrdersToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrdersToolStripMenuItem.Click
        OrdersForm.Show()
        OrdersForm.MdiParent = Me

    End Sub

    Private Sub CustomersToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomersToolStripMenuItem.Click
        CustomersForm.Show()
        CustomersForm.MdiParent = Me
    End Sub

    Private Sub EmployeesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmployeesToolStripMenuItem.Click
        EmployeesForm.Show()
        EmployeesForm.MdiParent = Me
    End Sub

    Private Sub ShippersToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShippersToolStripMenuItem.Click
        ShippersForm.Show()
        ShippersForm.MdiParent = Me
    End Sub

    Private Sub OrderDetailsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrderDetailsToolStripMenuItem.Click
        OrderDetailsForm.Show()
        OrderDetailsForm.MdiParent = Me
    End Sub

    Private Sub ProductsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductsToolStripMenuItem.Click
        ProductsForm.Show()
        ProductsForm.MdiParent = Me
    End Sub

    Private Sub SuppliersToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SuppliersToolStripMenuItem.Click
        SuppliersForm.Show()
        SuppliersForm.MdiParent = Me
    End Sub

    Private Sub Form2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2ToolStripMenuItem.Click
        Form2.Show()
        Form2.MdiParent = Me

    End Sub

    Private Sub OpenFormToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenFormToolStripMenuItem.Click

    End Sub

    Private Sub SettingsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SettingsToolStripMenuItem.Click
        settings.Show()
        settings.MdiParent = Me
    End Sub

    Private Sub ParentForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Screen.PrimaryScreen.Bounds.Width <> 1024 Or Screen.PrimaryScreen.Bounds.Height <> 768 Then
            MsgBox("The best resolution for this application is 1024 * 768")
        End If
        
    End Sub
End Class